home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / scroll / scrollstars.ajo < prev   
Text File  |  2002-04-21  |  227b  |  7 lines
  1. openscreen[0]=160/80/1/l//;
  2. sumpalblack[0]:setcol[0,1,255,255,255]:setpen[0,1,0,0,0]
  3. -l:
  4. scroll[0,0,0,160,80,2,0]:initrnd:random[0,180]:writepixel[0,157,!0]
  5. setcol[0,0,!0,!0,!0]:delay[1]:onlmb[e]:jump[l]
  6. -e:
  7. closescreen[0]:quit